C = (2, 2)
D = (3, 1)
b = Segment(C, D)
mb = Slope(b)
A = (-4, 1)
B = (-2, 2)
a = Segment(A, B)
ma = Slope(a)
E5 = 0
D5 = 1
B5: (3 * x(C)^(2))
F5: mb
C5: (2 * x(C))
E3 = 1
E2 = 1
E4 = 0
D3: x(C)
C2: x(B)^(2)
C3: x(C)^(2)
D2: x(B)
D4 = 1
B4: (3 * x(B)^(2))
C4: (2 * x(B))
B2: x(B)^(3)
F2: y(B)
B3: x(C)^(3)
F4: ma
F3: y(C)
LGS: {{B2, C2, D2, E2, F2}, {B3, C3, D3, E3, F3}, {B4, C4, D4, E4, F4}, {B5, C5, D5, E5, F5}}
rrefLGS = ReducedRowEchelonForm(LGS)
LGSZ1 = Element(LGS, 1)
LGSZ2 = Element(LGS, 2)
rrefLGSZ1 = Element(rrefLGS, 1)
rrefLGSZ2 = Element(rrefLGS, 2)
LGSZ3 = Element(LGS, 3)
rrefLGSZ3 = Element(rrefLGS, 3)
LGSZ4 = Element(LGS, 4)
rrefLGSZ4 = Element(rrefLGS, 4)
f(x) = (Element[rrefLGS, 1, 5] * x^(3)) + (Element[rrefLGS, 2, 5] * x^(2)) + (Element[rrefLGS, 3, 5] * x) + Element[rrefLGS, 4, 5]
g(x) = If[x(B) ≤ x ≤ x(C),f(x)]
TZ0: {"r", "s", "u", "v"}
text1 = TableText({TZ0, LGSZ1, LGSZ2, LGSZ3, LGSZ4}, "|000010_010000r")
text2 = TableText({TZ0, rrefLGSZ1, rrefLGSZ2, rrefLGSZ3, rrefLGSZ4}, "|000010_010000r")